home *** CD-ROM | disk | FTP | other *** search
/ Into That Dark Night / Into That Dark Night.iso / pc / YadVashem / Database / BKSHELF.dxr / 00008_Bookshelf Internal routines.ls < prev    next >
Encoding:
Text File  |  2003-03-14  |  1.1 KB  |  41 lines
  1. global gCurScreen, gPresRelList, gBookShelfList, gItemList
  2.  
  3. on updateBookShelf
  4.   set tmpStr to convertToUpperGlob(gCurScreen)
  5.   set seeList to getaProp(gPresRelList, gCurScreen)
  6.   set seeList to getAt(seeList, 2)
  7.   put EMPTY into field "seeAlsoField" of castLib "internal"
  8.   set gBookShelfList to []
  9.   repeat with idx = 1 to count(seeList)
  10.     set theItem to getAt(seeList, idx)
  11.     set itemDesc to getaProp(gItemList, theItem)
  12.     if not voidp(itemDesc) then
  13.       case getAt(itemDesc, 2) of
  14.         1:
  15.           set theType to "pct"
  16.         2:
  17.           set theType to "txt"
  18.         3:
  19.           set theType to "txt"
  20.         4:
  21.           set theType to "aud"
  22.         5:
  23.           set theType to "pct"
  24.         7:
  25.           set theType to "vid"
  26.         10:
  27.           set theType to "txt"
  28.         11:
  29.           set theType to "aud"
  30.         12:
  31.           set theType to "vid"
  32.         16:
  33.           set theType to "txt"
  34.       end case
  35.       put getAt(itemDesc, 1) & " (" & theType & ")" & RETURN after field "seeAlsoField" of castLib "internal"
  36.       add(gBookShelfList, theItem)
  37.     end if
  38.   end repeat
  39.   set the scrollTop of member "seeAlsoField" of castLib "internal" to 0
  40. end
  41.